#!/usr/bin/perl
# ce programme se charge de cr�er la structure une page HTML
# qu'il �crit sur la sortie standard
$titre = "";
if($titre = <STDIN>)
{
	open(FILEINPUT,"$titre");
	print "<HTML>\n";
	# on �crit l'ent�te
	@tab = <FILEINPUT>;
	print "<HEAD><TITLE>$tab[0]</TITLE></HEAD>\n";
	# on �crit le corps de la page
	print  "<BODY style=\"background-color:black; color:white;\">\n";
	print "<h2 style=\"color:yellow\">$tab[0]</h2>\n";
	for ($i=1;$i<=$#tab;$i++)
	{
		print "<p>".$i.$tab[$i]."</p>";
	}
	print  "</BODY>\n";
	# on �crit la fin du fichier html
	print  "</HTML>\n";
}
